Hyper Stacks 1994 May/Hyper Stacks (Pacific HiTech)(1994)[Mac].iso/Organization/Mailing List ƒ/Mailing List Maker/Mailing List Maker/background_3418.txt

Text File | 1988-03-28 | 10.6 KB | 513 lines

-- background: 3418 from stack: in
-- bmap block id: 2058
-- flags: 0000
-- background id: 0
-- name: File Card
----- HyperTalk script -----
on openStack
  hide message box
  show menuBar
  pass openStack
end openStack

on closeField
  put the date into field "update"
end closeField

on newCard
  tabKey
end newCard




-- part 1 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=112 top=23 right=42 bottom=295
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Name


-- part 6 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=238 top=320 right=340 bottom=257
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  go to prev card
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=262 top=320 right=340 bottom=281
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  go to next card
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=472 top=316 right=335 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  pop card
end mouseUp



-- part 11 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=76 top=255 right=270 bottom=198
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home Phone Number


-- part 30 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=423 top=273 right=289 bottom=495
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: update


-- part 36 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=17 top=18 right=44 bottom=45
-- title width / last selected line: 0
-- icon id / first selected line: 20098 / 20098
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  go "Home"
end mouseUp



-- part 37 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=19 top=295 right=329 bottom=58
-- title width / last selected line: 0
-- icon id / first selected line: 22855 / 22855
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Yearly
----- HyperTalk script -----
on mouseUp
  get the seconds
  convert it to dateItems
  put ((item 1 of it) - 1987) *2 into whichSix
  if item 2 of it > 6 then add 1 to whichSix
  visual effect zoom open
  if whichSix < 1 then go card 1 of stack "DateBook"
  else if whichSix > 5 then go card 5 of stack "DateBook"
  else
    go to card whichSix of stack "DateBook"
    send "bracketWeek" && the seconds to this card
  end if
end mouseUp



-- part 38 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=61 top=295 right=329 bottom=100
-- title width / last selected line: 0
-- icon id / first selected line: 21209 / 21209
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Daily
----- HyperTalk script -----
on mouseUp
  set lockScreen to true
  go stack "DateBook"
  goWeekly the seconds
  set lockScreen to false
end mouseUp



-- part 39 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=430 top=295 right=329 bottom=469
-- title width / last selected line: 0
-- icon id / first selected line: 20186 / 20186
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  answer "Sort all cards of this stack according to:" with "First Name" or "Last Name" or "Cancel"
  if it is "First Name"
  then sort by first word of first line of field "Name"
else if it is "Last Name"
then sort by last word of first line of field "Name"
end mouseUp



-- part 40 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=386 top=295 right=329 bottom=425
-- title width / last selected line: 0
-- icon id / first selected line: 32670 / 32670
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  show all cards
end mouseUp



-- part 41 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=104 top=295 right=329 bottom=143
-- title width / last selected line: 0
-- icon id / first selected line: 20965 / 20965
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: To Do
----- HyperTalk script -----
on mouseUp
  go to card "First Do" of stack "Datebook"
end mouseUp



-- part 42 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=54 top=253 right=270 bottom=76
-- title width / last selected line: 0
-- icon id / first selected line: 30696 / 30696
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home Phone Dailer
----- HyperTalk script -----
on mouseUp
  get the selection
  if it is empty then get first line of field "Home Phone Number"
  if it is empty then ask "Dial what number?"
  if it is not empty then
    push this card
    visual effect zoom open
    go to stack "Phone"
    dial it
    pop card
  end if
end mouseUp



-- part 43 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=412 top=255 right=270 bottom=492
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Area Codes
----- HyperTalk script -----
on mouseUp
  go to card id 2596 of stack "Area Codes"
end mouseUp




-- part 44 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=271 top=255 right=270 bottom=394
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Work Phone Number


-- part 46 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=249 top=253 right=270 bottom=271
-- title width / last selected line: 0
-- icon id / first selected line: 30696 / 30696
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Work Phone Dailer
----- HyperTalk script -----
on mouseUp
  get the selection
  if it is empty then get first line of field "Work Phone Number"
  if it is empty then ask "Dial what number?"
  if it is not empty then
    push this card
    visual effect zoom open
    go to stack "Phone"
    dial it
    pop card
  end if
end mouseUp



-- part 47 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=112 top=41 right=59 bottom=295
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Street Address


-- part 48 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=112 top=58 right=76 bottom=322
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: City, State, Zip


-- part 49 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=112 top=78 right=97 bottom=270
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Spouse's Name


-- part 50 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=374 top=23 right=42 bottom=450
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Birthday


-- part 51 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=386 top=78 right=97 bottom=457
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Spouse's Birthday


-- part 52 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=137 top=114 right=132 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Children's Name(s)


-- part 53 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=374 top=41 right=59 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Occupation


-- part 54 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=386 top=96 right=115 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Spouse's Occupation


-- part 55 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=16 top=145 right=253 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: General


-- part 62 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=298 top=303 right=320 bottom=376
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: List Maker
----- HyperTalk script -----
on mouseUp
  go to stack "Mailing List Maker"
end mouseUp



-- part 67 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=151 top=303 right=320 bottom=229
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Card
----- HyperTalk script -----
on mouseUp
  choose button tool
  click at 60,280
  doMenu "Copy Button"
  doMenu "New Card"
  doMenu "Paste Button"
  choose browse tool
end mouseUp